home *** CD-ROM | disk | FTP | other *** search
/ The Trig Explorer / The Trig Explorer.iso / mac / Explorer / START.dxr / 00055.ls < prev    next >
Encoding:
Text File  |  1998-07-22  |  316 b   |  16 lines
  1. on enterFrame
  2.   global SndSet
  3.   if SndSet = 0 then
  4.     set oldSound to the soundLevel
  5.     set the locH of sprite 16 to 109 + (64 * oldSound)
  6.     set SndSet to 1
  7.   end if
  8. end
  9.  
  10. on exitFrame
  11.   set SdLevel to the locH of sprite 16
  12.   set SdLevel to (SdLevel - 70) / 64
  13.   set the soundLevel to SdLevel
  14.   go(the frame)
  15. end
  16.